1 A=A+1:IFA=1THENLOAD"M-S CODE",8,1
2 POKE53280,5:POKE53281,11:H$="[147]   [205][213][204][212][201]-[211][208][210][201][212][197] [195][207][196][197] [211][193][214][197][210]/[210][197][204][207][195][193][212][207][210]"
3 H$=H$+"       [194]Y [202]ASON [198]INCH       ([195]) 1989 [195][196][213]"
4 FORI=0TO6:READC(I):NEXT:DIML%(24),H%(24)
5 PRINTH$:PRINT"[155] [212]HIS PROGRAM  WILL  SAVE  THE  CODE TO  YOUR OWN DISK. [201]";
6 PRINT"T WILL ALSO ENABLE YOU  TO CHANGE  THE  START  ADDRESS  OF THE  CO";
7 PRINT"DE AND WILL, DURING THE SAVE, CHANGE  ALL THE  NECESSARY BYTES  TO ";
8 PRINT"ALLOW THE  ROUTINES TO  RUN WITHOUT ERROR AT YOUR  CHOSEN ADDRESS.";
9 PRINT"  [212]HE [194][193][211][201][195] ENTRY POINT  FOR THE COMMANDS IS  1848 BYTES  AFTER  T";
10 PRINT"HE ACTUAL START OF THE CODE.[157][157][157][157][208]RESS ANY KEY":POKE198,0:WAIT198,1
11 POKE198,0:PRINTH$:PRINT"[155] [208]LEASE ENTER THE START ADDRESS TO"
12 PRINT" WHICH YOU WOULD LIKE THE CODE TO LOAD"
13 PRINT" ([212]O FIND ENTRY POINT ADD 1848 BYTES)    [158]:49152[157][157][157][157][157]";
14 OPEN1,0:INPUT#1,A$:CLOSE1:PRINTH$:RA=VAL(A$):PRINT"[155] [211]TART ADDRESS:[158]"RA
15 PRINT"[155] [197]NTRY POINT:  [158]"RA+1848:PRINT" [193]LL [207][203]? [[208]RESS [217]/[206]]":POKE198,0
16 GETA$:IFA$="N"THEN11
17 IFA$<>"Y"THEN16
18 PRINTH$:PRINT"[155] [208]LEASE WAIT:":OPEN15,8,15,"I0":INPUT#15,A,A$,B,C:CLOSE15
19 IFA<>0THEN38
20 PRINT" [195]ODE BEING SAVED AS "CHR$(34)"[205][213][204][212][201][211][208][210][201][212][197]"MID$(STR$(RA+1848),2)CHR$(34)
21 OPEN2,8,1,"@:MULTISPRITE"+MID$(STR$(RA+1848),2)+",P,W":RESTORE:FORI=0TO6
22 READA:NEXT:PRINT#2,CHR$((RA/256-INT(RA/256))*256)CHR$(RA/256);
23 FORI=0TO143:PRINT#2,CHR$(0);:NEXT:FORI=0TO7:PRINT#2,CHR$(PEEK(49296+I));
24 NEXT:FORI=0TO24:READA:A=RA+A:L%(I)=(A/256-INT(A/256))*256:H%(I)=A/256:NEXT
25 FORI=0TO4:PRINT#2,CHR$(L%(I));:NEXT:FORI=0TO4:PRINT#2,CHR$(H%(I));:NEXT
26 FORI=5TO23:PRINT#2,CHR$(L%(I));:NEXT:FORI=5TO23:PRINT#2,CHR$(H%(I));:NEXT
27 FORI=0TO74:PRINT#2,CHR$(PEEK(49352+I));:NEXT
28 PRINT" [144]                                     ":AD=49425:T=37:C=-1
29 READA,OF:CK=AD+A:AD=AD+2
30 IFAD=51288THEN37
31 IFAD=49432THENPRINT#2,CHR$(L%(24))CHR$(162)CHR$(H%(24));:AD=AD+3
32 IF(AD-49425)/6<>INT((AD-49425)/6)THEN35
33 C=C+1:IFC=7THENC=0:T=T-1
34 POKE1344+T,C(C)
35 IFAD<>CKTHENPRINT#2,CHR$(PEEK(AD));:AD=AD+1:GOTO30
36 NA=AD-OF+RA-49152:PRINT#2,CHR$((NA/256-INT(NA/256))*256)CHR$(NA/256);:GOTO29
37 CLOSE2:OPEN15,8,15:INPUT#15,A,A$,B,C:CLOSE15:IFA=0THEN40
38 PRINTH$:PRINT"[155] [196]ISK [197]RROR [206]O."MID$(STR$(A),2)":"
39 PRINT" "A$" @"B"[157],"C:PRINT" [208]RESS ANY KEY":POKE198,0:WAIT198,1:GOTO11
40 PRINTH$:PRINT"[155] [195]ODE SAVED WITHOUT ERROR":PRINT" [208]RESS ANY KEY":POKE198,0
41 WAIT198,1:POKE198,0:PRINT"[147][142]MULTI-SPRITE":PRINT"BY JASON FINCH[144]":NEW
42 DATA160,234,246,97,117,116,32
43 DATA434,535,584,690,786,275,2100,958,1061,1099,1202,1241,1280,1319,1349
44 DATA1379,2009,1405,1427,1510,1559,1623,1713,1809,406
45 DATA3,-1812,17,293,30,-1640,6,329,6,311,6,293,6,275,19,270,3,270,3,270
46 DATA12,279,3,279,3,279,9,285,3,285,11,282,3,285,4,268,3,-9
47 DATA3,269,3,-4,14,338,14,458,6,440,6,422,6,404,11,390,3,390,3,390
48 DATA12,396,6,399,3,399,3,399,20,407,14,426,3,428,9,435,3,439,9,443,19,487
49 DATA14,600,6,582,6,564,6,546,11,539,3,539,3,539,12,545,6,548,3,548,3,548
50 DATA12,552,7,557,3,159,11,592,14,698,6,680,6,662,6,644,11,644,3,644,3,644
51 DATA12,650,6,653,3,653,3,653,12,213,5,658,3,662,9,675,10,-5,9,698,3,700
52 DATA17,708,16,736,9,721,9,742,6,748,5,753,7,754,4,764,6,758,3,771,3,775
53 DATA12,-920,4,790,3,-15,6,799,3,802,4,806,3,805,3,803,7,114,6,-979,3,830
54 DATA3,-973,5,837,3,837,3,842,3,842,3,-956,3,850,3,856,7,-845,3,866,3,868
55 DATA3,1004,3,872,3,986,3,879,3,883,5,926,3,887,6,146,5,898,3,943,6,908
56 DATA3,914,3,913,3,919,3,217,6,-888,3,933,7,-768,3,942
57 DATA7,-758,3,953,3,955,3,1043,3,255,6,-850,3,971,7,-730,3,980,3,984
58 DATA3,984,3,986,7,-711,5,1001,5,1041,3,1005,6,264,5,1016,3,1058,6,1026
59 DATA3,1030,3,1036,6,1041,5,1078,3,1045,6,304,5,1056,3,1095,7,-747,3,1074
60 DATA7,-627,5,1114,3,1084,6,343,5,1095,3,1131,7,-708,3,1113,7,-588,5,1141
61 DATA3,1123,6,382,5,1134,3,1158,7,-669,3,1152,7,-549,5,1189,3,1162,6,421
62 DATA5,1173,3,1206,7,-630,3,1191,7,-510,3,1200,7,-500,3,1211,3,1235,4,-600
63 DATA3,1221,7,-480,3,1230,7,-470,3,1241,3,1262,4,-570,3,1251,7,-450
64 DATA4,1261,3,1325,3,561,6,1280,9,-425,3,1292,6,1298,4,1302,13,-399,3,-494
65 DATA3,1315,5,1319,3,-5,3,-492,4,1330,4,1333,9,1341,3,1352,7,1352,10,1361
66 DATA3,1370,3,1367,6,1380,4,-439,3,1382,5,-321,3,1389,5,1395,7,-306,3,1404
67 DATA7,-296,3,1415,3,1417,3,1424,3,1426
68 DATA4,-378,3,1431,7,-270,3,1447,5,1446,3,1455,3,1452,7,1469,3,1470
69 DATA3,1472,3,1477,4,1482,3,1484,3,1478,7,1492,3,1496,4,-326,3,-311,3,1496
70 DATA3,1501,7,-200,3,1510,7,1516,7,1525,3,1527,3,1541,3,1541,3,1543,7,1552
71 DATA3,1556,3,-24,3,1559,7,1569,3,1571,3,-8,3,1578,3,1580,3,1573,7,-236
72 DATA3,1585,7,-116,3,1594,10,1603,7,-96,7,1617,7,1638,3,1629,7,1624
73 DATA3,-5,3,1630,3,1657,3,1646,7,1666,3,1658,7,1653,3,-5,3,1659,3,1685
74 DATA4,-128,9,-21,3,1344,3,1197,3,1094,3,1352,3,1205,3,1102,17,1722,6,1719
75 DATA18,1737,3,1681,5,1754,9,1763,14,1777,3,35,5,75,7,1762,3,-9,3,1749,3,-4
76 DATA18,13,3,1822,3,19,3,1827,7,1845,3,1847,3,1849,6,1854,7,165,5,1862
77 DATA4,1869,5,1870,4,1873,6,72,3,1881,9,182,3,1899,14,1907,9,1921,3,-29
78 DATA3,1922,4,1931,9,1935,8,1948,3,1950,7,1959,7,1970,6,1973,22,1998,6,2001,,